Notifications
Clear all

Macro excel + SAP

16 Posts
5 Usuários
0 Reactions
16.9 K Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

oi, tenho uma dúvida :geek:

como posso usar uma macro para executa-lá em um outro programa .

+ detalhes:

Eu recebo planilhas e quero fazer uma macro para copiar e colar em um programa chamado SAP.
Essas planilhas que eu recebo vão alimentar este programa. Então ao invés de ficar copiando e colando no programa SAP, tenha algum modo de copiar e colar pressionando o botao da macro.

 
Postado : 10/08/2009 7:29 pm
(@rehcps)
Posts: 0
New Member
 

eai galera td certo?

eu to apanhando pra puxar uma tabela do sap pra minha planilha do excel. O código pra logar e gerar a planilha eu já consegui, porem ela gera em Basis e eu não sei como como fazer a minha planilha receber os dados da planilha gerada pelo sap. e ela fecha sosinha logo depois de extrair a tabela do sap.

*Obs. eu utlizo o SAP ERP- ECC

Sub Logontrial()
 
Dim SapGuiApp As Object
Dim oConnection As Object
Dim session As Object
Dim SAPCon As Object, SAPSesi As Object
Dim SAPGUIAuto As Object, SAPApp As Object
'Dim sapConnection As Object
 
If SapGuiApp Is Nothing Then
    Set SapGuiApp = CreateObject("Sapgui.ScriptingCtrl.1")
End If
If oConnection Is Nothing Then
    Set oConnection = SapGuiApp.OpenConnection("transação", True)
End If
If SAPSesi Is Nothing Then
   Set SAPSesi = oConnection.Children(0)
End If

  
   Application.DisplayAlerts = False
    
 With SAPSesi
        
    .findById("wnd[0]/usr/txtRSYST-MANDT").Text = "350"
    .findById("wnd[0]/usr/txtRSYST-BNAME").Text = "usuario"
    .findById("wnd[0]/usr/pwdRSYST-BCODE").Text = "senha"
    .findById("wnd[0]/usr/txtRSYST-LANGU").Text = "pt"
    .findById("wnd[0]").sendVKey 0
        
    'daqui que sai a tabela
    .findById("wnd[0]").maximize
    .findById("wnd[0]/tbar[0]/okcd").Text = "iq09"


    End With
      
     Application.DisplayAlerts = False
     MsgBox "After clicking OK, this SAP session is terminated."
End Sub

 
Postado : 25/08/2017 11:54 am
Página 2 / 2